From 4a07afb1a01bb51c65757e8fa94371d8bd4032fd Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 16 Mar 2009 11:12:40 +0000 Subject: [PATCH] (ccl-compile-if): Signal an error for invalid operator. --- lisp/international/ccl.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 1d212afd519..c5088c8c9e5 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -505,6 +505,8 @@ If READ-FLAG is non-nil, this statement has the form (op (get (nth 1 condition) 'ccl-arith-code)) (arg (nth 2 condition))) (ccl-check-register rrr cmd) + (or (integerp op) + (error "CCL: invalid operator: %s" (nth 1 condition))) (if (integerp arg) (progn (ccl-embed-code (if read-flag 'read-jump-cond-expr-const -- 2.30.2